home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / bn_art2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  12.0 KB  |  491 lines
  1. /*****************************************************************************
  2.   FILE           : bn_art2.c
  3.   SHORTNAME      : bn_art2
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        : Creates the ART2-window and ART2 networks. 
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Kai-Uwe Herrmann
  10.   DATE           : 15.1.1993
  11.  
  12.   CHANGED BY     : 
  13.   IDENTIFICATION : @(#)bn_art2.c    1.9 3/2/94
  14.   SCCS VERSION   : 1.9
  15.   LAST CHANGE    : 3/2/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22.  
  23. #include <stdlib.h>
  24. #include <stdio.h>
  25. #include <X11/Xlib.h>
  26. #include <X11/Xutil.h>
  27. #include <X11/Xos.h>
  28. #include <X11/cursorfont.h>
  29. #include <X11/Intrinsic.h>
  30. #include <X11/StringDefs.h>
  31. #include <X11/Shell.h>
  32. #include <X11/Xaw/Box.h>
  33. #include <X11/Xaw/Simple.h>
  34. #include <X11/Xaw/Grip.h>
  35. #include <X11/Xaw/Form.h>
  36. #include <X11/Xaw/SmeBSB.h>
  37. #include <X11/Xaw/SmeLine.h>
  38. #include <X11/Xaw/Viewport.h>
  39. #include <X11/Xaw/Label.h>
  40. #include <X11/Xaw/Toggle.h>
  41. #include <X11/Xaw/Command.h>
  42. #include <X11/Xaw/Cardinals.h>
  43. #include <X11/Xaw/AsciiText.h>
  44. #include <X11/Xaw/Scrollbar.h>
  45.  
  46. #include "ui.h"
  47. #include "glob_typ.h"
  48. #include "kr_ui.h"
  49. #include "ui_mainP.h"
  50. #include "ui_confirmer.h"
  51. #include "ui_textP.h"
  52. #include "ui_utilP.h"
  53. #include "ui_netUpdate.h"
  54. #include "ui_status.h"
  55. #include "ui_xWidgets.h"
  56. #include "ui_fileP.h"
  57. #include "ui_display.h"
  58. #include "ui_event.h"
  59. #include "ui_selection.h"
  60.  
  61. #include "bn_basics.h"
  62.  
  63. #include "bn_art2.ph"
  64.  
  65.  
  66.  
  67. /*****************************************************************************
  68.   FUNCTION : bn_art2_make_layer
  69.  
  70.   PURPOSE  : Generation of a complete layer
  71.   NOTES    : 
  72.  
  73.   UPDATE   : 20.1.1993
  74. ******************************************************************************/
  75.  
  76. static krui_err bn_art2_make_layer (
  77.                             int    units,
  78.                             int    rows,
  79.                             int    cols,
  80.                             int    Xbegin,
  81.                             int    Ybegin,
  82.                             int    Xsep,
  83.                             int    Ysep,
  84.                             char  *name_prefix,
  85.                             int    unit_ttype,
  86.                             char  *actfuncname,
  87.                             char  *outfuncname,
  88.                             int    NoOfSites,
  89.                             char **SiteNames,
  90.                             char **SiteFuncNames)
  91.                          
  92.  
  93. {
  94.    krui_err             ret_code = KRERR_NO_ERROR;
  95.  
  96.    int                  row;
  97.    int                  col;
  98.    int                  count;
  99.    int                  last_col;
  100.    int                  unit_no;
  101.    struct PosType       unit_pos;
  102.    char                 *site_name;
  103.    int                  site_no;
  104.    char                 name[10];
  105.  
  106.  
  107.    /* Create Units */
  108.    for (row = 1, count = 0; row <= rows; row++) {
  109.  
  110.       if ((units % rows) > 0) {
  111.          last_col = POS_SIGN((units-count) % (rows-row+1));
  112.       } else {
  113.          last_col = 1;
  114.       } /*if*/
  115.  
  116.       for (col = 1; col <= (cols-1+last_col); col++) {
  117.  
  118.          count++;
  119.  
  120.          unit_no = krui_createDefaultUnit();
  121.          if (unit_no < 0)  CHECK_RETURN (unit_no);
  122.  
  123.          ret_code = krui_setUnitTType (unit_no, unit_ttype);
  124.          CHECK_RETURN( ret_code );
  125.  
  126.          ret_code = krui_setUnitActFunc(unit_no, actfuncname);
  127.          CHECK_RETURN (ret_code);
  128.  
  129.          ret_code = krui_setUnitOutFunc(unit_no, outfuncname);
  130.          CHECK_RETURN (ret_code);
  131.  
  132.          if (units > 1) {
  133.             sprintf (name,"%s%d",name_prefix,count);
  134.          } else {
  135.             sprintf (name,"%s",name_prefix);
  136.          } /*if*/
  137.  
  138.          ret_code = krui_setUnitName (unit_no, name);
  139.          CHECK_RETURN (ret_code);
  140.  
  141.          unit_pos.x = Xbegin + Xsep*(col-1);
  142.          unit_pos.y = Ybegin + Ysep*(row-1);
  143.          krui_setUnitPosition( unit_no, &unit_pos );
  144.  
  145.          ret_code = krui_setCurrentUnit (unit_no);
  146.          CHECK_RETURN (ret_code);
  147.  
  148.          /* Add Sites */
  149.          site_no = 1;
  150.          while (site_no <= NoOfSites) {
  151.              site_name= *(SiteNames+(site_no-1));
  152.  
  153.              if (site_name != NULL) {
  154.                 ret_code = krui_addSite (site_name);
  155.                 CHECK_RETURN (ret_code);
  156.              } /*if*/
  157.  
  158.              site_no++;
  159.          } /*while*/
  160.  
  161.       } /*for*/
  162.  
  163.    } /*for*/
  164.  
  165.    return (ret_code);
  166. } 
  167.  
  168.  
  169.  
  170.  
  171. /*****************************************************************************
  172.   FUNCTION : bn_art2_createNet
  173.  
  174.   PURPOSE  : Generation of the ART2 network using SNNS kernel functions.
  175.   NOTES    :
  176.  
  177.   UPDATE   : 20.1.1993
  178. ******************************************************************************/
  179.  
  180. static krui_err bn_art2_createNet (int f1Units, int f1Rows, int f2Units, int f2Rows)
  181.  
  182. {
  183.    krui_err          ret_code   = KRERR_NO_ERROR;
  184.  
  185.    int               i, j;
  186.  
  187.  
  188.    /********* create units ******************/
  189.  
  190.    /* create Input Layer  */
  191.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, INP_X, INP_Y,
  192.                           1, 1, "inp", INPUT, ACTF_INP, OUTF_INP, 0,
  193.                           NULL, NULL);
  194.    CHECK_RETURN (ret_code);
  195.  
  196.    /* create W-Units */
  197.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, W_X, W_Y,
  198.                           F1_SEP_X, F1_SEP_Y, "w",
  199.                           HIDDEN, ACTF_W, OUTF_W, 0, NULL, NULL);
  200.    CHECK_RETURN (ret_code);
  201.  
  202.  
  203.  
  204.    /* create X-Units */
  205.  
  206.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, X_X, X_Y,
  207.                           F1_SEP_X, F1_SEP_Y, "x", HIDDEN, ACTF_X,
  208.                           OUTF_X, 0, NULL, NULL);
  209.    CHECK_RETURN (ret_code);
  210.  
  211.  
  212.    /* create U-Units */
  213.  
  214.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, U_X, U_Y,
  215.                           F1_SEP_X, F1_SEP_Y, "u", HIDDEN, ACTF_U,
  216.                           OUTF_U, 0, NULL, NULL);
  217.    CHECK_RETURN (ret_code);
  218.  
  219.    /* create V-Units */
  220.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, V_X, V_Y,
  221.                           F1_SEP_X, F1_SEP_Y, "v",
  222.                           HIDDEN, ACTF_V, OUTF_V, 0, NULL, NULL);
  223.    CHECK_RETURN (ret_code);
  224.  
  225.    /* create P-Units */
  226.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, P_X, P_Y,
  227.                           F1_SEP_X, F1_SEP_Y, "p",
  228.                           HIDDEN, ACTF_P, OUTF_P, 0, NULL, NULL);
  229.    CHECK_RETURN (ret_code);
  230.  
  231.    /* create Q-Units */
  232.  
  233.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, Q_X, Q_Y,
  234.                           F1_SEP_X, F1_SEP_Y, "q", HIDDEN, ACTF_Q,
  235.                           OUTF_Q, 0, NULL, NULL);
  236.    CHECK_RETURN (ret_code);
  237.  
  238.    /* create R-Units */
  239.  
  240.    ret_code = bn_art2_make_layer (f1Units, f1Rows, F1_COLS, R_X, R_Y,
  241.                           F1_SEP_X, F1_SEP_Y, "r", HIDDEN, ACTF_R,
  242.                           OUTF_R, 0, NULL, NULL);
  243.    CHECK_RETURN (ret_code);
  244.  
  245.    /* create Recognition Layer */
  246.    ret_code = bn_art2_make_layer (f2Units, f2Rows, F2_COLS, REC_X, REC_Y, 1, 1,
  247.                           "rec", SPECIAL, ACTF_REC, OUTF_REC, 0, NULL, NULL);
  248.    CHECK_RETURN (ret_code);
  249.  
  250.    ret_code = bn_art2_make_layer (f2Units, f2Rows, F2_COLS, RST_X, RST_Y, 1, 1,
  251.                           "rst", HIDDEN, ACTF_RST, OUTF_RST, 0, NULL, NULL);
  252.    CHECK_RETURN (ret_code);
  253.  
  254.  
  255.  
  256.  
  257.    /********* Create Links **************************************/
  258.  
  259.  
  260.    /* TO w units */
  261.    for (i=1; i<=f1Units; i++) {
  262.  
  263.       ret_code = krui_setCurrentUnit (W_UNIT(i));
  264.       CHECK_RETURN (ret_code);
  265.  
  266.       /* FROM inp units */
  267.       ret_code = krui_createLink (INP_UNIT(i),0.0);
  268.       CHECK_RETURN (ret_code);
  269.  
  270.       /* FROM u units */
  271.       ret_code = krui_createLink (U_UNIT(i), 0.0);
  272.       CHECK_RETURN (ret_code);
  273.  
  274.    } /*for*/
  275.  
  276.  
  277.    /* TO x units */
  278.    for (i=1; i<=f1Units; i++) {
  279.  
  280.       ret_code = krui_setCurrentUnit (X_UNIT(i));
  281.       CHECK_RETURN (ret_code);
  282.  
  283.       /* FROM w units */
  284.       ret_code = krui_createLink (W_UNIT(i),0.0);
  285.       CHECK_RETURN (ret_code);
  286.  
  287.    } /*for*/
  288.  
  289.  
  290.    /* TO u units */
  291.    for (i=1; i<=f1Units; i++) {
  292.  
  293.       ret_code = krui_setCurrentUnit (U_UNIT(i));
  294.       CHECK_RETURN (ret_code);
  295.  
  296.       /* FROM v units */
  297.       ret_code = krui_createLink (V_UNIT(i),0.0);
  298.       CHECK_RETURN (ret_code);
  299.  
  300.    } /*for*/
  301.  
  302.  
  303.    /* TO v units */
  304.    for (i=1; i<=f1Units; i++) {
  305.  
  306.       ret_code = krui_setCurrentUnit (V_UNIT(i));
  307.       CHECK_RETURN (ret_code);
  308.  
  309.       /* FROM x units */
  310.       ret_code = krui_createLink (X_UNIT(i),0.0);
  311.       CHECK_RETURN (ret_code);
  312.  
  313.       /* FROM q unit */
  314.       ret_code = krui_createLink (Q_UNIT(i), 0.0);
  315.       CHECK_RETURN (ret_code);
  316.  
  317.    } /*for*/
  318.  
  319.  
  320.    /* TO p units */
  321.    for (i=1; i<=f1Units; i++) {
  322.  
  323.       ret_code = krui_setCurrentUnit (P_UNIT(i));
  324.       CHECK_RETURN (ret_code);
  325.  
  326.       /* FROM rec units */
  327.       for (j=1; j<=f2Units; j++) {
  328.          ret_code = krui_createLink (REC_UNIT(j),0.0);
  329.          CHECK_RETURN (ret_code);
  330.       } /*for*/
  331.  
  332.       /* FROM u unit */
  333.       ret_code = krui_createLink (U_UNIT(i), 0.0);
  334.       CHECK_RETURN (ret_code);
  335.  
  336.    } /*for*/
  337.  
  338.  
  339.    /* TO q units */
  340.    for (i=1; i<=f1Units; i++) {
  341.  
  342.       ret_code = krui_setCurrentUnit (Q_UNIT(i));
  343.       CHECK_RETURN (ret_code);
  344.  
  345.       /* FROM p unit */
  346.       ret_code = krui_createLink (P_UNIT(i), 0.0);
  347.       CHECK_RETURN (ret_code);
  348.  
  349.    } /*for*/
  350.  
  351.  
  352.    /* TO r units */
  353.    for (i=1; i<=f1Units; i++) {
  354.  
  355.       ret_code = krui_setCurrentUnit (R_UNIT(i));
  356.       CHECK_RETURN (ret_code);
  357.  
  358.       /* FROM p unit */
  359.       ret_code = krui_createLink (P_UNIT(i), 0.0);
  360.       CHECK_RETURN (ret_code);
  361.  
  362.       /* FROM inp unit */
  363.       ret_code = krui_createLink (INP_UNIT(i), 0.0);
  364.       CHECK_RETURN (ret_code);
  365.  
  366.    } /*for*/
  367.  
  368.  
  369.    /* TO rec units */
  370.    for (i=1; i<=f2Units; i++) {
  371.  
  372.       ret_code = krui_setCurrentUnit (REC_UNIT(i));
  373.       CHECK_RETURN (ret_code);
  374.  
  375.       /* FROM p units */
  376.       for (j=1; j<=f1Units; j++) {
  377.          ret_code = krui_createLink (P_UNIT(j), 0.0);
  378.          CHECK_RETURN (ret_code);
  379.       } /*for*/
  380.  
  381.       /* FROM rst unit */
  382.       ret_code = krui_createLink (RST_UNIT(i), 0.0);
  383.       CHECK_RETURN (ret_code);
  384.  
  385.    } /*for*/
  386.  
  387.  
  388.    /* TO rst units */
  389.    for (i=1; i<=f2Units; i++) {
  390.  
  391.       ret_code = krui_setCurrentUnit (RST_UNIT(i));
  392.       CHECK_RETURN (ret_code);
  393.  
  394.       /* FROM rec units */
  395.       ret_code = krui_createLink (REC_UNIT(i), 0.0);
  396.       CHECK_RETURN (ret_code);
  397.  
  398.    } /*for*/
  399.  
  400.    printf (" Done.\n");
  401.  
  402.  
  403.    /*  set the update function  */
  404.    ret_code = krui_setUpdateFunc (UPDATE_FUNC_NAME);
  405.    CHECK_RETURN( ret_code );
  406.  
  407.    /* set the learning function */
  408.    ret_code = krui_setLearnFunc (LEARN_FUNC_NAME);
  409.  
  410.    return (ret_code);
  411. }
  412.  
  413.  
  414.  
  415.  
  416.  
  417.  
  418. /*****************************************************************************
  419.   FUNCTION : bn_art2_donePROC
  420.  
  421.   PURPOSE  : Callback function for DONE button in art2
  422.   NOTES    :
  423.  
  424.   UPDATE   : 20.1.1993
  425. ******************************************************************************/
  426.  
  427. static void bn_art2_donePROC (void)
  428.  
  429. {
  430.  
  431.    XtDestroyWidget (baseWidget);
  432.    bn_art2_open = 0;
  433.  
  434. }
  435.  
  436.  
  437.  
  438. /*****************************************************************************
  439.   FUNCTION : bn_art2_createPROC
  440.  
  441.   PURPOSE  : Callback function for CREATE NET button in art2
  442.   NOTES    :
  443.  
  444.   UPDATE   : 20.1.1993
  445. ******************************************************************************/
  446.  
  447. static void bn_art2_createPROC (void)
  448.  
  449. {
  450.   int units[2], rows[2];
  451.   int NoOfLayers = 2;
  452.  
  453.   if (bn_basics_check_existingNetwork()) {
  454.  
  455.      bn_basics_getValues (NoOfLayers, units, rows, art2UnitWidget, art2RowWidget);
  456.  
  457.      if (bn_basics_checkValues(NoOfLayers, units, rows)) {
  458.         bn_art2_createNet (units[0], rows[0], units[1], rows[1]);
  459.         bn_basics_refresh ();
  460.         ui_confirmOk ("Network created!");
  461.      } /*if*/
  462.  
  463.   } /*if*/
  464.  
  465.   return;
  466.  
  467. }
  468.  
  469.  
  470.  
  471. /*****************************************************************************
  472.   FUNCTION : bn_createART2
  473.  
  474.   PURPOSE  : create ART2 panel
  475.   NOTES    :
  476.  
  477.   UPDATE   : 20.1.1993
  478. ******************************************************************************/
  479.  
  480. void bn_createART2(void)
  481.  
  482. {
  483.   bn_basics_createART (ART2_MODEL, &baseWidget, &bn_art2_open,
  484.                        art2UnitWidget, art2RowWidget,
  485.                        (XtCallbackProc) bn_art2_createPROC,
  486.                        (XtCallbackProc) bn_art2_donePROC);
  487.  
  488.  
  489. }
  490.  
  491.